Returns a SharedWorkspaceFolders collection that represents the list of subfolders in the document library associated with the current shared workspace. Read-only.
expression.Folders()
expression Required. An expression that returns a SharedWorkspace object.
The SharedWorkspaceFolders collection does not include the root document library folder itself, which by default is named "Shared Documents".
The following example lists the subfolders in the current shared workspace.
Dim swsFolders As Office.SharedWorkspaceFolders
Set swsFolders = ActiveWorkbook.SharedWorkspace.Folders
MsgBox "There are " & swsFolders.Count & _
" folder(s) in the current shared workspace.", _
vbInformation + vbOKOnly, _
"Collection Information"
Set swsFolders = Nothing